﻿Imports StartFrame.BR.Web.Utilitarios

Partial Public Class abmtest
    Inherits System.Web.UI.Page

    'Friend WithEvents MySender As AbmBase

    Public masterpage As AbmBase

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim obr As New BR.Web.Utilitarios.Abms.Test

        Dim ods As New DataSet
        'Campos de filtado, si esta vacio los incluye a todos
        Dim cf As String = "apellido, nombre, instrumento, estilo, disponible, edad, fecha"
        'Columnas grilla
        Dim cg As String = "apellido, nombre, instrumento, estilo, disponible, edad, fecha"
        'Columnas del formulario de alta/modificacion
        Dim ce As String = "idtest, codigo,  nombre, apellido, edad, instrumento, estilo, disponible, fecha"
        'Nombres Alias de columnas
        Dim ac As New Hashtable
        'Datos para campos Foreing Key (tabla, campo id, campo descripcion)
        Dim cfk As New Hashtable

        masterpage = CType(Page.Master, AbmBase) 'instancia iniciada de la clase de masterpage

        ac.Add("nombre", "Nombre")
        ac.Add("apellido", "Apellido")
        ac.Add("instrumento", "Instrumento empleado")

        cfk.Add("estilo", "usr_estilo, idestilo, descripcion")
        cfk.Add("instrumento", "usr_instrumento, idinst, descripcion")

        masterpage.lblTitulo = "Abm Test"

        masterpage.FiltrosBusqueda = cf
        masterpage.ColumnasGrilla = cg
        'masterpage.CamposEdicion = ce
        masterpage.AliasCampos = ac
        masterpage.CamposForeingKey = cfk

        'Captura del enevento Actualizando y asignacion de handler al metodo Validaciones
        AddHandler masterpage.Actualizando, AddressOf Validaciones

        masterpage.InicializarPagina(obr)

        If Not Page.IsPostBack Then
            comboEstilo()
            comboInstrumentos()
        End If

    End Sub

    Protected Overloads Sub OnPreInit() Handles Me.PreInit
        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub

    Private Sub comboInstrumentos()
        Dim ds As New DataSet

        ds = StartFrame.DA.Sql.Select(ConnectionString, "*", "usr_instrumento")
        instrumento.Items.Clear()
        For Each inst In ds.Tables(0).Rows
            Dim item As New ListItem
            item.Value = inst(0)
            item.Text = inst(1)
            instrumento.Items.Add(item)
        Next

    End Sub

    Private Sub comboEstilo()
        Dim ds As New DataSet

        ds = StartFrame.DA.Sql.Select(ConnectionString, "*", "usr_estilo")

        estilo.Items.Clear()
        For Each est In ds.Tables(0).Rows
            Dim item As New ListItem
            item.Value = est(0)
            item.Text = est(1)
            estilo.Items.Add(item)
        Next

    End Sub

    'Metodo al cual se le asignara el evento Actualizando
    Private Sub Validaciones(ByRef cancela As Boolean)
        'MsgBox("Esto no graba", MsgBoxStyle.OkOnly)
        cancela = False
    End Sub

End Class
